﻿Imports System.IO

Module Manejo_Ficheros

    Friend Sub GuardarConfiguracion(ByVal sDatos() As String)
        Dim swEscritor As New StreamWriter(".\cofiguration.cfg")
        swEscritor.WriteLine(sDatos(0))
        swEscritor.WriteLine(sDatos(1))
        swEscritor.WriteLine(sDatos(2))
        swEscritor.WriteLine(sDatos(3))
        swEscritor.Close()

    End Sub

    Friend Function LeerConfiguracion() As String()
        Dim srLector As New StreamReader(".\cofiguration.cfg")
        Dim sDatos(4) As String
        sDatos(0) = srLector.ReadLine
        sDatos(1) = srLector.ReadLine
        sDatos(2) = srLector.ReadLine
        sDatos(3) = srLector.ReadLine
        srLector.Close()
        Return sDatos
    End Function



End Module